home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
tx072291.zip
/
TXGRAPH.PRG
< prev
next >
Wrap
Text File
|
1991-07-22
|
1KB
|
57 lines
*:*********************************************************************
*:
*: Program: TXGRAPH.PRG
*:
*: System: Texas Associated Software Laser Library
*: Author: Jose E. Lopez, Jr.
*: Copyright (c) 1991, Texas Associated Software - Red Oak, TX
*:
*:*********************************************************************
returncode = txinit()
returncode = txreset()
_company = "Texas Associated Software"
_units = "Units Shipped in Thousands"
_1stqtr = 19
_2ndqtr = 23
_3rdqtr = 15
_4thqtr = 30
txorient("L") && Set orientation to Landscape
txcolbox(01, 01, 105, 45, 1, 0, 5)
txcolbox(43, 01, 105, 03, 1, 5, 5)
txcolprint(43, 08, .T., "1st Qtr 1990")
txcolprint(43, 33, .T., "2nd Qtr 1990")
txcolprint(43, 58, .T., "3rd Qtr 1990")
txcolprint(43, 83, .T., "4th Qtr 1990")
txcolprint(45, 41, .T., _units)
txcolprint(02, 41, .T., _company)
txcolprint(33, 01, .T., "10")
txcolprint(23, 01, .T., "20")
txcolprint(13, 01, .T., "30")
txcolprint(03, 01, .T., "40")
FOR I = 2100 TO 0 STEP -496
txdothline( I, 01, 3150, 1) && draw horizontal thousands lines
NEXT
_col = 43 - _1stqtr
txpatternbar(_col, 10, 10, _1stqtr, 1, .T.)
_col = 43 - _2ndqtr
txpatternbar(_col, 35, 10, _2ndqtr, 3, .T.)
_col = 43 - _3rdqtr
txpatternbar(_col, 60, 10, _3rdqtr, 2, .T.)
_col = 43 - _4thqtr
txpatternbar(_col, 85, 10, _4thqtr, 4, .T.)
returncode = txclear()
*: EOF: TXGRAPH.PRG